home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / listings / v_13_03 / letters / julian.c < prev    next >
Encoding:
Text File  |  1995-02-07  |  388 b   |  20 lines
  1. /* Julian Easter */
  2.  
  3. int jeaster (int year)
  4. {
  5.   
  6.   int A, B, C, D, E, Month, Day;
  7.  
  8.   A = year % 4;
  9.   B = year % 7;
  10.   C = year % 19;
  11.   D = (19 * C + 15) % 30;
  12.   E = (2 * A + 4 * B - D + 34) % 7;
  13.   Month = (D + E + 114) / 31;
  14.   Day = ((D + E + 114) % 31) + 1;
  15.   return (Month + Day * 10);
  16. }
  17. /* unwrap using month = return % 10 */
  18. /*                day = return / 10 */ 
  19.  
  20.